-- Ejercicio 10.4
iter :: Int -> (a -> a) -> (a -> a)
iter n f 
	| n > 0		= f . iter (n-1) f
	| otherwise	= id

double :: Int -> Int
double n = n * 2


comp2 :: ( a -> b) -> (b -> b -> c) -> (a -> a -> c)
comp2 f g = ( \x y -> g( f x ) ( f y ))
	